VBA方法range作用于对象_worksheet时失败
...方法“range”作用于对象,_worksheet时失败是什么原因) -
可以这么考虑！要看你的具体代码，可能是range引用的单元格区域超出表格的规定，比如你在03版里引用了第65537行或257列，这都会导致引用失败。另：Range对象是针对activesheet,看看你操作的对象表中是否存在保护等情况，
If Target.Address = "$E$6" And [G2] <> "" And [H2] <> "" Then Range("e6") = WorksheetFunction.Average(Range("g2"), Range("h2"))End If End With End Sub 双击E6就执行，
可以这么考虑！要看你的具体代码，可能是range引用的单元格区域超出表格的规定，比如你在03版里引用了第65537行或257列，这都会导致引用失败。另：Range对象是针对activesheet,看看你操作的对象表中是否存在保护等情况，
If Target.Address = "$E$6" And [G2] <> "" And [H2] <> "" Then Range("e6") = WorksheetFunction.Average(Range("g2"), Range("h2"))End If End With End Sub 双击E6就执行，
请仔细看你的图，下面部分显示c为空值，这样Sheets(2).Range("C" & c)就会出问题，c必须要是一个从1开始的整数才不报错，c为空值的时候，系统就去访问Sheets(2).Range("C")，这明细缺少一个行，所以报错，明白了吗？另外，图和代码已经不同了，不知道你现在的代码又改为什么样子了，所以谈有帮助请点赞。
你对整行复制，必须从A列粘贴单元格才够数量，复制到H列当然不行。拿2003版来说，Rows(i).Copy 共复制了256个单元格，复制到Range("h" & copycont)，H右边的单元格个数已没有256了，所以失败，
VBA range作用于对象worksheet时失败 我想用range函数做一个冒泡排序...
“Sheet3.Range”里的Sheet3没定义。定义sheet3，Dim Sheet3 as worksheet set sheet3=thisworkbook.sheets("sheet3")或者把程序里所有没有引号的“Sheet3”，改成Sheets("Sheet3")
k = 2 * j - 2 且j=1就是2*1-2=0结果是range("A0") 。单元格必须是从1行开始的。看不明白你代码目的是什么，但你的错误是在于K不能等于0的。或改成k = 2 * j - 1
再次请教VBA中关于“range"对象作用于"worksheet"时失败 -
代码没有错，检查：1、工作簿2.xlsm是否已经打开2、工作簿2.xlsm下是否有名为“2015表”的工作表，
如果是第一个range出错i = Sheets("模特衣架库存表").Range("a65536").End(xlUp).Row 改成i = Sheets("模特衣架库存表").Range("A65536").End(xlUp).Row 如果是第二个range出错可能是Range("A & i:C200")不对，试试range(cells(i,1),cells(200,3))如果还不能解决，可能是没有好了吧！
...这个VBA代码哪里出错了?(提示range对象作用于worksheet时失败...
For j = 1 To num k = 2 * j - 2 ' 当j=1的时候，k=0,下面Sheet2.Range("A" & k) ,Range("A0")不存在Sheet1.Range("j:j").Copy Destination:=Sheet2.Range("A" & k)Next
但是运行代码的时候要在sheet1的页面上运行才行，因为你后边copy的range地址是指向当前页面的而不是锁定sheet1 就是说你运行这段代码的时候要点开sheet1的时候来运行宏或者把最后一个copy改成Sheet1.Range("A" & i & ":AA" & i).Copy (Sheet2.Cells(3 * i - 6, 1))说完了。